home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / DUCKK.BAS (.txt) < prev    next >
QuickBASIC Tokenized Source  |  1991-06-19  |  7KB  |  209 lines
  1. PALLETT
  2. TOPIC
  3. MENUnUM.
  4. haveZ
  5. selectedW
  6. BoilerWater
  7.     FeedWater
  8.     questions
  9. questions.I
  10. D100w
  11. U100E
  12. CLOORv
  13. inkey
  14. start
  15. maintaining
  16. adequate?
  17. supply
  18. engineering
  19. spare
  20. parts
  21. pause
  22. wwait
  23. FALSEZ
  24. TRUE_
  25. flase
  26. TTrue
  27. FFalse~
  28. totalO
  29. ffase
  30. QUESTION4
  31. setup
  32. locCATE
  33. border+
  34. WAITT
  35. timer
  36. timer10
  37. unitl7
  38. NMALLOCg
  39. color11:
  40. test#
  41. waite
  42. Enter
  43. Motion[
  44. CCol_
  45. Prompt5
  46. RADIUS
  47. Cprint
  48.     clsscreen
  49. clsVIEW
  50. MakeBox$
  51. Row1C
  52. Col2Q
  53. BoxTypea
  54. Title
  55.     DriveType
  56. Drive
  57. DrvType
  58. GetDirectoryV
  59. GetDirData
  60. DirEntry
  61.     Attribute
  62. EntryCountA
  63.     GetDosVerL
  64. DosVerg
  65. GetDrive
  66. GetDriveAllocationX
  67. Clustors
  68. Sectors
  69. Bytes
  70.     Available
  71. GetDriveFree
  72. GetEquipment
  73. PrinterPorts"
  74.     CommPorts
  75. GameAdapter
  76. CoProcessorD
  77. Drives
  78. GetMemorySize*
  79. Memory    
  80. GetPrinterPort
  81. PrinterPortP
  82. Status
  83. InkeyBox
  84. Reply
  85. MakeLines
  86. LType
  87. MakeMenu
  88. MType;
  89. IType%
  90. TFore{
  91. menuo
  92. VReply
  93. Make123+
  94. RestScreen
  95. ScrnSave
  96. SaveScreenc
  97. ScrlList
  98. Btype
  99. ListLen:
  100. ShowLen-
  101. ShowWid
  102. Items
  103. Mark"
  104. ShowDir}
  105. ShowType
  106. TypeLine
  107. InLnp
  108. PrinterStatus
  109. Delayb
  110. Seconds
  111. ViewFile
  112.     MaxLengthy
  113.     LineCount
  114. AScroll
  115.     GetVerify
  116. ValidDrives
  117. GetVideo
  118.     VideoMode
  119. CharColj
  120.     VideoPageW
  121. MakeBitNum
  122.     BitStringH
  123. Number
  124. MakeBitStrt
  125. CheckBitNumP
  126. BitCheck8
  127. CheckBitStr
  128. GetHighLowz
  129. SetHighLowo    
  130. Answer
  131. BAnswer
  132. Release
  133. choice
  134. UCASE
  135. LCASEn
  136. Resp\
  137. chioce
  138. counter
  139. answt
  140. ansct
  141. start22    
  142. start3
  143. endexit
  144. menu1
  145. Qbt1c
  146. TYPR]    
  147. QUESB    
  148. QUESTION.Q1
  149. QUESTION.Q2
  150. QUESTION.Q3
  151. QUESTION.Q4X    
  152. QUESTION.Q5R    
  153. QUESTION.Q6
  154. QUESTION.Q7
  155. QUESTION.Q8
  156. QUESTION.Q9
  157. QUESTION.Q10
  158. QUESTION.Q11
  159. QC.Q1
  160. QC.Q2
  161. QC.Q3
  162. QC.Q4
  163. QC.Q5
  164. QC.Q6
  165. QC.Q7
  166. QC.Q8
  167. QC.Q9
  168. QC.Q10
  169. QC.Q11
  170. QUESTI.DATd
  171. WHICH QUESTION ARE YOU ENTERING 
  172. Main program mod
  173.  CALL opg
  174.  'opening screen for tester
  175.  CALL menu(choice%, answ%, ansc%) 'menu screen for tester
  176. MAKES THE TOP 12 LINES
  177. MAKES THE BOTTOM 12 LINESe
  178. fill the center part of screen
  179. sound for the openning
  180. THE TESTER
  181. INNOVATIVE COMPUTER CONSULTANTS CO."
  182. Written by  Douglas A. Duck"
  183.  Press any key to continue......."
  184. --------------- MAIN  MENU ---------------
  185. (1) Enter Questions for BT1 & BTC"
  186. (2) Enter Questions for BT3 & BT2"
  187. (3) Drill test for BT1 & BTC
  188. (4) Drill test for BT3 & BT2
  189. (5) EXIT PROGRAM
  190. ------------------------------------------
  191. ENTER WHAT TOPIC YOU WANT TO DRILL: 
  192. You have selected BOILER TECH 3 & 2"
  193. is this correct ? 
  194. (Y/N)"
  195. LOCATE 26, 1: COLOR 0: PRINT "
  196. counter
  197. inkey
  198. endexit
  199.  THAT'S ALL FOR TODAY. GOOD LUCK ON YOUR TEST!
  200. menu1
  201. --------------- MAIN  MENU ---------------
  202. (1) BOILER TECH 3 & 2"
  203. (2) BOILER TECH 1 & C"
  204. (3) LEFT BLANK FOR LATER
  205. (4) LEFT BLANK FOR LATER
  206. (5) EXIT PROGRAM
  207. ------------------------------------------
  208. ENTER WHAT TOPIC YOU WANT TO DRILL: 
  209.